dim oRoot, oGrid, oCluster, aElements
set oRoot = Application.ActiveProject.ActiveScene.Root
set oGrid = oRoot.AddGeometry("Grid","MeshSurface")
set oCluster = oGrid.ActivePrimitive.Geometry.AddCluster( _
        siPolygonCluster, "PolygonClusterOnGrid", _
        array(59,60,61))
aElements  = oCluster.Elements.Array
LogMessage "lbound(aElements,1) " & lbound(aElements,1)
LogMessage "ubound(aElements,1) " & ubound(aElements,1)
for iIndex=lbound(aElements,1) to ubound(aElements,1)
        iElement = aElements(iIndex)
        LogMessage "element(" & iIndex & ") = " & _
                oCluster.Type & "(" & iElement & ") "
next

/*
        This example demonstrates how to work with the safearray returned
        from ClusterElementCollection.Array using the GridData object
*/
// ***************************************
//
//              SETUP
//
// Create scene with sphere
NewScene( null, false );
var obj = ActiveSceneRoot.AddGeometry( "Grid", "MeshSurface" ) ;
obj.subdivu = 2;
obj.subdivv = 1;
AddVertexColorsToMesh( obj )
// ***************************************
//
//              FIND VERTEX COLORS
//
// Get current polygon mesh geometry
var polymesh = obj.ActivePrimitive.Geometry;    
// Returns a ClusterPropertyCollection
var vertexcolors = polymesh.VertexColors;
Application.LogMessage( vertexcolors.Count );
for ( var j=0; j<vertexcolors.Count; j++ ) { 
        // Gets a ClusterProperty
        var vertexcolor = vertexcolors(j);
        Application.LogMessage( vertexcolor.Fullname );
        // Returns a ClusterElementCollection
        var cls_prop_elems = vertexcolor.Elements;
        // Returns a VBArray
        var vbValues = cls_prop_elems.Array;
        Application.LogMessage( "# of dimensions: " + vbValues.dimensions() );
        for ( var d=1; d<=vbValues.dimensions(); d++ ) {
                Application.LogMessage( "range of dimension " + d + ": " + vbValues.lbound(d) + ".." + vbValues.ubound(d) );
        }
        // DISPLAY INFO
        var gridtable = MakeMeAPPG( vbValues );
        var canceled = InspectObj( gridtable, "", "", siModal, false );
        // CHANGE INFO
        if ( !canceled ) {
                grid_mod = gridtable.Parameters("VertexColorChart").Value;
                grid_mod.SetCell( 0, 0, 1.23 );
                DeleteObj( gridtable );
                gridtable = MakeMeAPPG( grid_mod.Data );
                // RE-DISPLAY MODIFIED INFO
                InspectObj( gridtable, "", "", siModal, false );
        }
}  
// ***************************************
//
//              ADD VERTEX COLORS
//
function AddVertexColorsToMesh( in_Mesh ) 
{
        // Get mesh's material
        var mat = in_Mesh.Material;
        // If material is not local add one
        if ( mat.IsA(siSharedPSet) ) {
                mat = in_Mesh.AddMaterial();
        }      
        // Get polygon mesh geometry
        var polymesh = in_Mesh.ActivePrimitive.Geometry;    
        polymesh.AddVertexColor();
}
// ***************************************
//
//              Functions to support PPG
//
function MakeMeAPPG( in_VBArray )
{
        var gprop = ActiveSceneRoot.AddProperty( "CustomProperty", false, "Visual2DArray" );                    
        var gparam = gprop.AddGridParameter( "VertexColorChart" );
        var ugrid = gparam.Value;
        // Set bounds of this grid
        ugrid.ColumnCount = in_VBArray.ubound(1)+1;
        ugrid.RowCount = in_VBArray.ubound(2)+1;
        ugrid.Data = in_VBArray;
        // Set up the labels
        var tmp = new Array( "R", "G", "B", "A" );
        for ( var c=0; c<ugrid.ColumnCount; c++ ) {
                ugrid.SetColumnLabel( c, tmp[c]) ;
        }
        for ( var r=0; r<ugrid.RowCount; r++ ) {
                ugrid.SetRowLabel( r, "Cluster " + r.toString() );
        }
        // Return the Property Set (not the Grid itself)
        return gprop;
}